home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / XLISP 2.0 / XLISP Tools / Utility (UL) / STUFF.C < prev    next >
Encoding:
Text File  |  1988-04-07  |  308 b   |  19 lines  |  [TEXT/ttxt]
  1. /* These go in your MSSTUFF.C file */
  2.  
  3. /* xtime - implements non-Common-Lisp TIME
  4.    returns time in seconds since 1 January 1970 */
  5. LVAL xtime()
  6. {
  7.     xllastarg();
  8.     return (cvfixnum((FIXTYPE)time(0)));
  9. }
  10.  
  11. LVAL xrandomize()
  12. {
  13.     xllastarg();
  14.     rseed=time(0);
  15.     return (cvfixnum((FIXTYPE)rseed));
  16. }
  17.  
  18.  
  19.